;*****************************
;* RoboTask Task file
;* Do not edit in text editor!
;*****************************
 
[Root]
ActionAfterRun=INTEGER|0
Actions=FOLDER
Automat=INTEGER|0
CatID=INTEGER|176842955
Comment=STRINGLIST
ContinueOnError=INTEGER|0
ExternalName=STRING|"Task25"
Hide=INTEGER|0
ID=INTEGER|696059742
LogOnAsUser=INTEGER|0
Name=STRING|"[DEMO.BASIC] MS Word"
OnErrorTaskID=INTEGER|0
Priority=INTEGER|3
RunOnClose=INTEGER|0
RunOnStartup=INTEGER|0
ToLog=INTEGER|3
WriteGeneralLog=INTEGER|0

[Actions]
Action1=FOLDER
Action2=FOLDER

[Actions\Action1]
ActionID=STRING|"A_FILE_DELETE"
Enabled=INTEGER|-1
Name=STRING|"Delete File"
Params=FOLDER

[Actions\Action1\Params]
Count=STRING|"1"
deletedirs=STRING|"0"
file0=STRING|"{TempDir}\doc1.doc"
subdir=STRING|"0"
ToRecycleBin=STRING|"0"

[Actions\Action2]
ActionID=STRING|"BASIC_SCRIPT"
Enabled=INTEGER|-1
Name=STRING|"Basic Script"
Params=FOLDER

[Actions\Action2\Params]
line00000=STRING|"Sub Main"
line00001=STRING|"  Dim App As Object"
line00002=STRING|"  Dim TempDir As String"
line00005=STRING|"  TempDir = RoboTaskApp.ExpandText(""{TempDir}"")"
line00007=STRING|"  Set App = CreateObject(""Word.Application"")"
line00009=STRING|"  With App"
line00010=STRING|"    .visible = True"
line00011=STRING|"      'Create a new document"
line00012=STRING|"      .Documents.Add"
line00014=STRING|"      'Add text to the document"
line00015=STRING|"      With .Selection.Font"
line00016=STRING|"      .Size =14"
line00017=STRING|"      .Bold =True"
line00018=STRING|"      End With"
line00019=STRING|"    With .Selection.ParagraphFormat"
line00020=STRING|"      .Alignment = 1"
line00021=STRING|"    End With"
line00023=STRING|"      .Selection.TypeText(""This demo text created by "")"
line00024=STRING|"      With .Selection.Font"
line00025=STRING|"        .Underline = True"
line00026=STRING|"      End With"
line00027=STRING|"      .Selection.TypeText(""RoboTask"")"
line00028=STRING|"      With .Selection.Font"
line00029=STRING|"        .Underline = False"
line00030=STRING|"      End With"
line00031=STRING|"      .Selection.TypeText("" basic script"")"
line00032=STRING|"      .Selection.TypeParagraph"
line00033=STRING|"      .Selection.TypeParagraph"
line00034=STRING|"      .Selection.TypeParagraph"
line00035=STRING|"      With .Selection.Font"
line00036=STRING|"      .Size =12"
line00037=STRING|"      .Bold = False"
line00038=STRING|"      End With"
line00039=STRING|"    With .Selection.ParagraphFormat"
line00040=STRING|"      .Alignment = 0"
line00041=STRING|"    End With"
line00042=STRING|"      .Selection.TypeText(""RoboTask can easily automate any series of tasks on your computer system, whether you are a novice or advanced user. You don't even have to know how to program—use RoboTask to build your own automated solutions quickly and easily. Yet RoboTask is powerful."")"
line00043=STRING|"      .Selection.TypeParagraph"
line00044=STRING|"      .Selection.TypeParagraph"
line00045=STRING|"      .Selection.TypeText(""For example, RoboTask can Help you avoid losing important data when you create a backup Task For placing files On a remote server."")"
line00046=STRING|"      .Selection.TypeParagraph"
line00047=STRING|"      With .Selection.Font"
line00048=STRING|"        .Size = 10"
line00049=STRING|"      .Italic = True"
line00050=STRING|"      End With"
line00051=STRING|"      .Selection.TypeText(""(See help file for more details...)"")"
line00052=STRING|"      .Selection.TypeParagraph"
line00053=STRING|"      .Selection.TypeParagraph"
line00054=STRING|"      With .Selection.Font"
line00055=STRING|"        .Size = 8"
line00056=STRING|"      .Italic = False"
line00057=STRING|"      End With"
line00058=STRING|"    With .Selection.ParagraphFormat"
line00059=STRING|"      .Alignment = 2"
line00060=STRING|"    End With"
line00061=STRING|"      .Selection.TypeText(""This text saved as ""+TempDir+""\Doc1.doc"")"
line00063=STRING|"      'Save the document"
line00064=STRING|"      On Error Resume Next"
line00065=STRING|"      .ActiveDocument.SaveAs(TempDir+""\Doc1.doc"")"
line00067=STRING|"    If MsgBox(""Do you want to print document?"",vbYesNo ) = vbYes Then"
line00068=STRING|"        .PrintOut"
line00069=STRING|"      End If"
line00070=STRING|"  End With"
line00072=STRING|"  'Quit Word"
line00073=STRING|"  'App.Quit"
line00075=STRING|"End Sub"
linecount=STRING|"76"
source=STRING|"0"